home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / LSMIRC61.EXE / ualias.in_ / ualias.in
Encoding:
INI File  |  1997-09-12  |  18.9 KB  |  489 lines
  1. [aliases]
  2. n0=;       The following sections deal with userlist maintenance
  3. n1=;       I wouldn't recommend modifying anything here unless you know this
  4. n2=;       script better than I do...  I try to avoid modifying it as much as possible
  5. n3=;       myself, and I wrote it!
  6. n4=;
  7. n5=;       Don't do it!!!
  8. n6=;
  9. n7=deopdevoice {
  10. n8=  if $me isop $1 {
  11. n9=    if $2 isop $1 mode $1 -o $2
  12. n10=    elseif $2 isvo $1 mode $1 -v $2
  13. n11=  }
  14. n12=}
  15. n13=add {
  16. n14=  ; add nick $1 (address $2) to $3 (numeric level 15-60) list
  17. n15=  ; $4 is the nick $1 is currently using
  18. n16=  if $3 = 15 {
  19. n17=    if (%usespecific) deopdevoice %addchan $4
  20. n18=    else {
  21. n19=      %i = 0
  22. n20=      :nx
  23. n21=      inc %i
  24. n22=      deopdevoice $chan(%i) $4         
  25. n23=    }
  26. n24=  }
  27. n25=  set %nick $replace($1,[,|) | set %nick $replace(%nick,],|) | unset %modified
  28. n26=  if $1 = $me { altech -a %dis6 $+ You do not need to add yourself to your userlist! | dh }
  29. n27=  if $2 iswm %myadr  { altech -a %dis6 $+ %nick appears to be your clone. | altech -a %dis6 $+ You do not need to add yourself to your userlist! | dh }
  30. n28=  set %temp $readini $ul address [ [ %nick ] $+ 1 ]
  31. n29=  set %lv $level($maddress($2)) | unset %newlevel
  32. n30=  if ((%temp != $null) && (%lv < 14)) {
  33. n31=    altech -a %dis7 $+ %nick is a recognized nick, but I don't know this hostmask.
  34. n32=    altech -a %dis8 $+ Attempting to add current hostmask... | addhost %nick $2 | set %modified $true
  35. n33=    set %newlevel $level($2)
  36. n34=  }
  37. n35=  if ((%temp = $null) && (%lv > 14)) {
  38. n36=    altech -a %dis7 $+ I recognize the address, but I don't know the nick %nick $+ .
  39. n37=    altech -a %dis8 $+ Proceeding to change the recognized nick...
  40. n38=    chnick %nick $2 | set %modified $true
  41. n39=  }
  42. n40=  if ((%lv != $3) && (%lv > 14)) {
  43. n41=    altech -a %dis8 $+ Proceeding to change levels for %nick
  44. n42=    chlv %nick $2 $3 | set %modified $true
  45. n43=  }
  46. n44=  if ((%level != $3) && (%newlevel > 14)) {
  47. n45=    altech -a %dis8 $+ Proceeding to change levels for %nick
  48. n46=    chlv %nick $2 $3 | set %modified $true
  49. n47=  }
  50. n48=  set %realnick $rnick.ady($2)
  51. n49=  if (%modified) {
  52. n50=    set %realnick $rnick.ady($2)
  53. n51=    set %chans $readini $ul channels %realnick
  54. n52=    if %chans = $null {
  55. n53=      if %addchan != $null { 
  56. n54=        writeini $ul channels %realnick %addchan
  57. n55=        if (%usespecific) altech -a %dis9 $+ Added %addchan to channel list for %nick
  58. n56=      }
  59. n57=    }
  60. n58=    elseif %addchan !isin %chans {
  61. n59=      if %addchan != $null {
  62. n60=        writeini $ul channels %realnick %chans %addchan
  63. n61=        if (%usespecific) altech -a %dis9 $+ Added %addchan to channel list for %nick
  64. n62=      }
  65. n63=    }
  66. n64=    altech -a %dis9 $+ Finished updating info for $1 | dh
  67. n65=  }
  68. n66=  if %realnick != $null {
  69. n67=    set %chans $readini $ul channels %realnick
  70. n68=    if %chans = $null {
  71. n69=      if %addchan != $null {
  72. n70=        writeini $ul channels %realnick %addchan
  73. n71=        if (%usespecific) altech -a %dis9 $+ Added %addchan to channel list for %nick
  74. n72=        else altech -a %dis7 $+ $1 is already found in your $wordlist($3) list with this address!
  75. n73=      }
  76. n74=      else altech -a %dis7 $+ $1 is already found in your $wordlist($3) list with this address!
  77. n75=    }
  78. n76=    elseif (%addchan !isin %chans) {
  79. n77=      if (%addchan != $null) {
  80. n78=        writeini $ul channels %realnick %chans %addchan
  81. n79=        if (%usespecific) altech -a %dis9 $+ Added %addchan to channel list for %nick
  82. n80=        else altech -a %dis7 $+ $1 is already found in your $wordlist($3) list with this address!
  83. n81=      }
  84. n82=      else altech -a %dis7 $+ $1 is already found in your $wordlist($3) list with this address!
  85. n83=    }
  86. n84=    elseif ((%usespecific) && (%addchan != $null)) altech -a %dis7 $+ $1 is already in your $wordlist($3) list on %addchan $+ !
  87. n85=    else altech -a %dis7 $+ $1 is already in your $wordlist($3) list with this address!
  88. n86=    dh
  89. n87=  }
  90. n88=  .auser $3 $2
  91. n89=  writeini $ul level %nick $3
  92. n90=  writeini $ul address [ %nick $+ 1 ] $2
  93. n91=  writeini $ul nick $2 %nick
  94. n92=  set %num $readini $ul nicklist number
  95. n93=  writeini $ul nicklist [ n $+ [ %num ] ] %nick
  96. n94=  inc %num | writeini $ul nicklist number %num
  97. n95=  writeini $ul seen %nick $ctime
  98. n96=  if %addchan != $null writeini $ul channels %nick %addchan
  99. n97=  if (%usespecific) altech -a %dis6 $+ Added %nick ( $+ $2 $+ ) $wordlist($3) list on %addchan
  100. n98=  else altech -a %dis6 $+ Added %nick ( $+ $2 $+ ) to $wordlist($3) list
  101. n99=  alert
  102. n100=}
  103. n101=remove {
  104. n102=  if ($a5($1) != $null) ru $1 $a5($1)
  105. n103=  else {
  106. n104=    altech -a $dis7 $+ $1 is not in the internal address list | altech -a %dis8 $+ Attempting alternate removal
  107. n105=    set %remnick $1 | .enable #altrem | userhost $1
  108. n106=  }
  109. n107=}
  110. n108=ru {
  111. n109=  ; remove nick $1 (address $2) from user list
  112. n110=  if $1 = $me { altech -a %dis7 $+ You cannot remove yourself from your user list! | dh }
  113. n111=  if $mask($2,3) iswm %myadr { altech -a %dis7 $+ $1 appears to be your clone.  Cannot Remove! | dh }
  114. n112=  set %nick $rnick.ady($2)
  115. n113=  if %nick = $null { altech -a %dis7 $+ $1 is not in your userlist | dh }
  116. n114=  %ac = 0
  117. n115=  :nx
  118. n116=  inc %ac
  119. n117=  set %remove $readini $ul address [ [ %nick ] $+ [ %ac ] ]
  120. n118=  if %remove != $null {
  121. n119=    remini $ul nick %remove
  122. n120=    remini $ul address [ [ %nick ] $+ [ %ac ] ]
  123. n121=    .ruser %remove | altech -a %dis8 $+ Removing %remove
  124. n122=    goto nx
  125. n123=  }
  126. n124=  dec %ac
  127. n125=  remlist %nick
  128. n126=  remini $ul channels %nick | remini $ul seen %nick
  129. n127=  remini $ul level %nick | remini $ul password %nick
  130. n128=  altech -a %dis9 $+ Removed $1 from all lists!
  131. n129=  if %nick != $1 altech -a %dis9 $+ ( $+ $1 was really %nick $+ ) | alert
  132. n130=}
  133. n131=addhost {
  134. n132=  ; add hostmask $2 to nick $1
  135. n133=  if $2 = $null { altech -a %dis7 $+ Cannot determine an address for $1 $+ .  Cannot add hostmask. | dh }
  136. n134=  set %level $readini $ul level $1
  137. n135=  if %level = $null { altech -a %dis7 $+ $1 is not in your userlist! | dh }
  138. n136=  set %othernick $rnick.ady($2)
  139. n137=  if ((%othernick != $null) && (%othernick != $1)) altech -a %dis7 $+ Warning! %dis8 $2 is already a known address for %othernick (adding anyway)
  140. n138=  .auser %level $2
  141. n139=  writeini $ul nick $2 $1
  142. n140=  %ac = 0
  143. n141=  :nx
  144. n142=  inc %ac
  145. n143=  set %temp $readini $ul address [ [ $1 ] $+ [ %ac ] ]
  146. n144=  if %temp != $null goto nx
  147. n145=  writeini $ul address [ [ $1 ] $+ [ %ac ] ] $2
  148. n146=  altech -a %dis9 $+ Added $2 to %nick
  149. n147=}
  150. n148=chlv {
  151. n149=  ; change nick $1 (address $2) to level $3 (numeric level 20-60)
  152. n150=  if $1 = $me { altech -a %dis7 $+ You do not need to change your level! | dh }
  153. n151=  set %nick $rnick.ady($2)
  154. n152=  if %nick = $null { altech -a %dis7 $+ $1 is not in your userlist! | dh }
  155. n153=  %ac = 0
  156. n154=  :nx
  157. n155=  inc %ac
  158. n156=  set %change $readini $ul address [ [ %nick ] $+ [ %ac ] ]
  159. n157=  if %change != $null {
  160. n158=    .auser $3 %change | altech -a %dis8 $+ Changing %change
  161. n159=    goto nx
  162. n160=  }
  163. n161=  writeini $ul level %nick $3
  164. n162=  dec %ac
  165. n163=  altech -a %dis8 $+ Changed %ac address(es)
  166. n164=  altech -a %dis9 $+ $1 is now in $wordlist($3) list
  167. n165=}
  168. n166=chnick {
  169. n167=  ; change address $2 to nick $1
  170. n168=  set %nk2 $rnick.ady($2)
  171. n169=  set %level $readini $ul level %nk2
  172. n170=  if ((%nk2 = $null) || (%level = $null)) { altech -a %dis7 $+ $1 ( $+ $2 $+ ) is not in your user list. | dh }
  173. n171=  %ac = 0
  174. n172=  :nx
  175. n173=  inc %ac
  176. n174=  set %change $readini $ul address [ [ %nk2 ] $+ [ %ac ] ]
  177. n175=  if %change != $null {
  178. n176=    remini $ul address [ [ %nk2 ] $+ [ %ac ] ]
  179. n177=    writeini $ul address [ [ $1 ] $+ [ %ac ] ] %change
  180. n178=    writeini $ul nick %change $1
  181. n179=    altech -a %dis8 $+ Changing %change
  182. n180=    goto nx
  183. n181=  }
  184. n182=  dec %ac
  185. n183=  remini $ul level %nk2 | writeini $ul level $1 %level
  186. n184=  set %chans $readini $ul channels %nk2
  187. n185=  if %chans != $null { 
  188. n186=    writeini $ul channels $1 %chans
  189. n187=    remini $ul channels %nk2
  190. n188=  }
  191. n189=  remini $ul seen %nk2 | writeini $ul seen $1 $ctime
  192. n190=  set %num $readini $ul nicklist number
  193. n191=  writeini $ul nicklist [ n $+ [ %num ] ] $1
  194. n192=  inc %num | writeini $ul nicklist number %num
  195. n193=  remlist %nk2
  196. n194=  altech -a %dis9 $+ %nk2 is now known as $1
  197. n195=}
  198. n196=gk set %nk $readini $ul nicklist [ n $+ [ $1 ] ]
  199. n197=gn inc %l | gk %l
  200. n198=fp {
  201. n199=  :nx
  202. n200=  gn | if %nk = $1 return %l
  203. n201=  if %l < %num goto nx
  204. n202=  return -1
  205. n203=}
  206. n204=remlist {
  207. n205=  ; remove nick $1 from the [nicklist] part of userlist.ini
  208. n206=  set %num $readini $ul nicklist number | if %num = $null goto done
  209. n207=  %l = -1 | dec %num | set %rt $fp($1)
  210. n208=  if %rt = -1 goto done
  211. n209=  :nx
  212. n210=  if %rt = %num { remini $ul nicklist [ n $+ [ %rt ] ] | writeini $ul nicklist number %num | goto done }
  213. n211=  %rn = %rt + 1 | gk %rn
  214. n212=  writeini $ul nicklist [ n $+ [ %rt ] ] %nk | inc %rt | goto nx
  215. n213=  :done
  216. n214=}
  217. n215=convert {
  218. n216=  set %ady $replace($1,!~,!)
  219. n217=  if ix.netcom.com isin %ady return $replace( [ $mask(%ady,3) ] ,*.ix.netcom.com, [ $mid(5,6, [ $mask(%ady,2) ] ) ] ) $+ *.ix.netcom.com
  220. n218=  else {
  221. n219=    %k = 0
  222. n220=    :nx
  223. n221=    inc %k
  224. n222=    set %dom %dom [ $+ [ %k ] ]
  225. n223=    if (%dom != $null) {
  226. n224=      if %dom isin %ady {
  227. n225=        set %sw 3 | set %adr *!*
  228. n226=        :nw
  229. n227=        inc %sw | set %adr %adr $+ $mid(%sw,1,$mask(%ady,3))
  230. n228=        if $mid(%sw,1,$mask(%ady,3)) != @ goto nw
  231. n229=        return %adr $+ *. $+ %dom
  232. n230=      }
  233. n231=      goto nx
  234. n232=    }
  235. n233=  }
  236. n234=  return $mask(%ady,3)
  237. n235=}
  238. n236=addban {
  239. n237=  ; add mask $1 to ban list on $2 using reason $3
  240. n238=  ; $2 = "global" if no channel is specified
  241. n239=  if $al($1) = 10 {
  242. n240=    set %chans $readini $ul whereban $m($1)
  243. n241=    if ((%chans = $null) && ($2 = global)) { altech -a %dis7 $+ $1 is already in your ban list! (Maybe you should try activating it!) | dh }
  244. n242=    elseif (($2 isin %chans) && ($2 != global)) { altech -a %dis7 $+ $1 is already in your ban list on $2 $+ ! (Maybe you should try activating it!) | dh }
  245. n243=    elseif ((%chans != $null) && ($2 = global)) {
  246. n244=      altech -a %dis7 $+ Making ban on $m($1) a global ban
  247. n245=      remini $ul whereban $m($1)
  248. n246=      newreason $1 $3- | dh
  249. n247=    }
  250. n248=    elseif ((%chans != $null) && ($2 !isin %chans) && ($2 != global)) {
  251. n249=      altech -a %dis7 $+ Adding $2 to list of banned channels for $1
  252. n250=      writeini $ul whereban $m($1) %chans $2
  253. n251=      newreason $1 $3- | dh
  254. n252=    }
  255. n253=    elseif ((%chans = $null) && ($2 != global)) {
  256. n254=      altech -a %dis7 $+ Making ban on $m($1) specific to $2
  257. n255=      writeini $ul whereban $m($1) $2
  258. n256=      newreason $1 $3- | dh
  259. n257=    }
  260. n258=  }
  261. n259=  if $1 iswm %myadr { altech -a %dis7 $+ Duh, hey Marge... I think I'll ban myself today | altech -a %dis8 $+ $1 matches your address, procedure Aborted! | dh }
  262. n260=  .auser 10 $1 | set %nb $readini $ul bans number
  263. n261=  inc %nb | writeini $ul bans [ n $+ [ %nb ] ] $1
  264. n262=  writeini $ul bans number %nb
  265. n263=  if $3 != $null writeini $ul whyban $1 $3-
  266. n264=  writeini $ul created $1 $adate $rtime
  267. n265=  if $2 = global altech -a %dis9 $+ Added $1 to your global ban list
  268. n266=  else {
  269. n267=    writeini $ul whereban $1 $2
  270. n268=    altech -a %dis9 $+ Added $1 to your ban list on $2
  271. n269=  }
  272. n270=  alert
  273. n271=}   
  274. n272=newreason if $2 != $null writeini $ul whyban $m($1) $2-
  275. n273=;
  276. n274=;         aliases used to shorten other things
  277. n275=;
  278. n276=m return $maddress($1)
  279. n277=a1 return $address($1,1)
  280. n278=a2 return $address($1,2)
  281. n279=a3 return $address($1,3)
  282. n280=a4 return $address($1,4)
  283. n281=a5 return $address($1,5)
  284. n282=gl return $level($m($a5($1)))
  285. n283=al return $level($m($1))
  286. n284=ma return $m($a5($1))
  287. n285=thischan {
  288. n286=  set %chans $readini $ul channels [ $rnick.nick($1) ] 
  289. n287=  if $2 isin %chans return $true
  290. n288=  return $false
  291. n289=}
  292. n290=isfriend {
  293. n291=  if $gl($1) = 70 return $true
  294. n292=  if $gl($1) < 19 return $false
  295. n293=  if (%usespecific) {
  296. n294=    if ($thischan($1,$2)) return $true
  297. n295=    else return $false
  298. n296=  }
  299. n297=  return $true
  300. n298=}
  301. n299=isop {
  302. n300=  if $gl($1) = 70 return $true
  303. n301=  if $gl($1) < 40 return $false
  304. n302=  if (%usespecific) {
  305. n303=    if ($thischan($1,$2)) return $true
  306. n304=    else return $false
  307. n305=  }
  308. n306=  return $true
  309. n307=}
  310. n308=isdeop {
  311. n309=  if $gl($1) = 70 return $false
  312. n310=  if $gl($1) != 15 return $false
  313. n311=  if (%usespecific) {
  314. n312=    if ($thischan($1,$2)) return $true
  315. n313=    else return $false
  316. n314=  }
  317. n315=  return $true
  318. n316=}
  319. n317=notop {
  320. n318=  if ($isop($1,$2)) return $false
  321. n319=  return $true
  322. n320=}
  323. n321=ismyclone {
  324. n322=  if $a3($1) iswm %myadr return $true
  325. n323=  else return $false
  326. n324=}
  327. n325=ismaster {
  328. n326=  if $gl($1) = 70 return $true
  329. n327=  if $gl($1) < 50 return $false
  330. n328=  if (%usespecific) {
  331. n329=    if ($thischan($1,$2)) return $true
  332. n330=    else return $false
  333. n331=  }
  334. n332=  return $true
  335. n333=}
  336. n334=notbot {
  337. n335=  if ($isbot($1,$2)) return $false
  338. n336=  return $true
  339. n337=}
  340. n338=notmaster {
  341. n339=  if ($ismaster($1,$2)) return $false
  342. n340=  return $true
  343. n341=}
  344. n342=notfriend {
  345. n343=  if ($isfriend($1,$2)) return $false
  346. n344=  return $true
  347. n345=}
  348. n346=isbot {
  349. n347=  if $gl($1) = 70 return $true
  350. n348=  if $gl($1) < 60 return $false
  351. n349=  if (%usespecific) {
  352. n350=    if ($thischan($1,$2)) return $true
  353. n351=    else return $false
  354. n352=  }
  355. n353=  return $true
  356. n354=}
  357. n355=isfsban {
  358. n356=  if $m( [ [ $1 ] $+ FileServerBan ] ) = $null return $false
  359. n357=  return $true
  360. n358=}
  361. n359=fsbanreason return $readini $ul fileserverbans $replace($m( [ $1 ] $+ FileServerBan),FileServerBan,$chr(32))
  362. n360=rnick.ady return $readini $ul nick $m($1)
  363. n361=rnick.nick return $rnick.ady( [ $a5($1) ] )
  364. n362=ul return $mircdiruserlist.ini
  365. n363=convertuserlist {
  366. n364=  ; converts pre-5.5 userlists to format used by 5.5 and above
  367. n365=  set %num $readini $ul nicklist number
  368. n366=  if %num = 0 halt
  369. n367=  %i = -1
  370. n368=  :nx
  371. n369=  inc %i
  372. n370=  set %nick $readini $ul nicklist [ n $+ [ %i ] ]
  373. n371=  set %chans %usechans [ $+ [ %nick ] ]
  374. n372=  if (%chans != $null) && (%nick != $null) {
  375. n373=    if $chr(32) isin %chans {
  376. n374=      %temp = ""
  377. n375=      :again
  378. n376=      if $chr(32) isin %chans {
  379. n377=        set %chan $left(%chans,$calc($pos(%chans,$chr(32)) - 1))
  380. n378=        if %temp = $null set %temp %chan
  381. n379=        elseif (%chan !isin %temp) set %temp %temp $+ $chr(32) $+ %chan
  382. n380=        set %chans $right(%chans,$calc(($len(%chans) - $calc($pos(%chans,$chr(32)) - 1)) - 1))
  383. n381=        goto again
  384. n382=      }
  385. n383=      writeini $ul channels %nick %temp $+ $chr(32) $+ %chans
  386. n384=    }
  387. n385=    else writeini $ul channels %nick %chans
  388. n386=  }
  389. n387=  if %i < %num goto nx
  390. n388=  unset %usechans* | altech -a 3 $+ User list converted to new format
  391. n389=  writeini $ul version version 55
  392. n390=}
  393. n391=knownops {
  394. n392=  ; if $2 = 0, return the # of recognized ops on $1
  395. n393=  ; if $2 = 1, return the # of people opped OR in your op list on $1
  396. n394=  %i = 0 | %num = 0
  397. n395=  :nx
  398. n396=  inc %i
  399. n397=  if $nick($1,%i) != $null {
  400. n398=    if $nick($1,%i) = $me inc %num
  401. n399=    elseif $2 = 0 {
  402. n400=      ; this isn't done with an "&&"... it's done in 2 lines on purpose
  403. n401=      ; $isop may access the hard drive... dont' wanna do that unless it has to
  404. n402=      if ($isop($nick($1,%i),$1)) inc %num
  405. n403=    }
  406. n404=    elseif $2 = 1 {
  407. n405=      ; this isn't done with an "&&"... it's done in 2 lines on purpose
  408. n406=      ; $isop may access the hard drive... dont' wanna do that unless it has to
  409. n407=      if (($isop($nick($1,%i),$1)) || ($nick($1,%i) isop $1)) inc %num
  410. n408=    }
  411. n409=    goto nx
  412. n410=  }
  413. n411=  return %num
  414. n412=}
  415. n413=wordlevel {
  416. n414=  if $1 = 15 return Deop/Devoice
  417. n415=  elseif $1 = 40 return Op
  418. n416=  elseif $1 = 50 return Master
  419. n417=  elseif $1 = 60 return Bot
  420. n418=  elseif $1 = 70 return $null
  421. n419=  elseif $1 > 18 return Friend
  422. n420=  else return $null
  423. n421=}
  424. n422=wordlevel2 {
  425. n423=  if $1 = 15 return Deop/Devoice
  426. n424=  elseif $1 = 40 return Op
  427. n425=  elseif $1 = 50 return Master
  428. n426=  elseif $1 = 60 return Bot
  429. n427=  elseif $1 = 70 return Your Clone
  430. n428=  elseif $1 > 18 return Friend
  431. n429=  else return $null
  432. n430=}
  433. n431=wordlist {
  434. n432=  if $1 = 15 return deop/devoice
  435. n433=  elseif $1 = 40 return ops
  436. n434=  elseif $1 = 50 return masters
  437. n435=  elseif $1 = 60 return bots
  438. n436=  elseif $1 > 18 return friends
  439. n437=  return (?? I'm confused!)
  440. n438=}
  441. n439=addfsb {
  442. n440=  ; add address $1 to file server ban list with reason $2-
  443. n441=  set %match $m( [ [ $1 ] $+ FileServerBan ] )
  444. n442=  if %match != $null {
  445. n443=    set %ady $replace(%match,FileServerBan,$chr(32))
  446. n444=    if %match = $1 altech -a %dis7 $+ $1 is already in your file server ban list!
  447. n445=    else altech -a %dis7 $+ $1 matches an address 5,0( $+ %ady $+ ) 4,0already in your file server ban list!
  448. n446=    if $2 = $null {
  449. n447=      altech -a %dis8 $+ Set file server ban reason for %ady to nothing
  450. n448=      remini $ul fileserverbans %ady
  451. n449=    }
  452. n450=    else {
  453. n451=      altech -a %dis8 $+ Set file server ban reason for %ady to: $2-
  454. n452=      writeini $ul fileserverbans %ady $2-
  455. n453=    }
  456. n454=  }
  457. n455=  else {
  458. n456=    .auser =1 $1 $+ FileServerBan
  459. n457=    set %num $readini $ul fileserverbans number
  460. n458=    inc %num | writeini $ul fileserverbans number %num
  461. n459=    writeini $ul fileserverbans [ n $+ [ %num ] ] $1
  462. n460=    if $2 != $null { 
  463. n461=      writeini $ul fileserverbans $1 $2-
  464. n462=      altech -a %dis9 $+ Added $1 to file server ban list
  465. n463=      altech -a %dis9 $+ Reason: %dis8 $+ $2-
  466. n464=    }
  467. n465=    else altech -a %dis9 $+ Added $1 to file server ban list (no reason given)
  468. n466=  }
  469. n467=}
  470. n468=realnick {
  471. n469=  if $1 = $me altech -a %dis15 $+ duh... hey Marge, who am I?  $1 is you silly!
  472. n470=  elseif $a3($1) iswm %myadr altech -a %dis15 $+ $1 appears to be your clone
  473. n471=  elseif ($a3($1) != $null) {
  474. n472=    set %nick $rnick.nick($1)
  475. n473=    if %nick = $null { altech -a %dis15 $+ $1 ( $+ $a3($1) $+ ) is not recognized | dh }
  476. n474=    if $1 = %nick altech -a %dis15 $+ $1 is a recognized nick
  477. n475=    elseif (%nick != $null) altech -a %dis15 $+ $1 is really %nick
  478. n476=    set %chans $readini $ul channels %nick
  479. n477=    set %temp $chr(44) $+ $chr(1)
  480. n478=    set %temp $replace(%chans,$chr(32),%temp)
  481. n479=    set %chans $replace(%temp,$chr(1),$chr(32))
  482. n480=    if ((%usespecific = $false) || (%chans = $null)) altech -a %dis15 $+ $1 is in your $wordlist($gl($1)) list
  483. n481=    else altech -a %dis15 $+ $1 is in your $wordlist($gl($1)) list on %chans
  484. n482=  }
  485. n483=  else altech -a %dis15 $+ $1 is not in your IAL, cannot determine who it is!
  486. n484=  alert  
  487. n485=}
  488. n486=lastseen set %nk $rnick.nick($1) | if %nk != $null writeini $ul seen %nk $ctime
  489.